use Modern::Perl;
use IO::All;
use FindBin qw($Bin);

io->dir("$Bin/A")->assert->autoclose();

